﻿'Quitado botón borrar y que se borre el formulario cada vez que se introduce algo
Public Class FormAltaJugador

    Private _miCampeonato As Campeonato

    Private Sub FormAltaJugador_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        Me._miCampeonato = New Campeonato()
    End Sub

    Private Sub btn_AltaJugador_Click(sender As Object, e As EventArgs) Handles btn_AltaJugador.Click
        Dim tieneWhatsapp As Integer
        Dim direccionNumero As Integer
        Dim fecha As Date

        Dim nombre, apellidos, nif As Boolean
        nombre = False
        apellidos = False
        nif = False

        If RadioButton1.Checked Then
            tieneWhatsapp = -1
        Else
            tieneWhatsapp = 0
        End If

        If txtNumAlta.Text = "" Then
            direccionNumero = 0
        Else
            direccionNumero = CInt(txtNumAlta.Text)
        End If

        If txtFechaNac.Text = "" Then
            fecha = #1/1/1000#
        Else
            fecha = CDate(txtFechaNac.Text)
        End If

        'Comprobar que el nif sea correcto
        If txtNIFAlta.Text.Length = 0 Then
            ErrorProvider1.SetError(txtNIFAlta, "El nif no puede estar vacio")
        ElseIf txtNIFAlta.Text.Length > 9 Then
            ErrorProvider1.SetError(txtNIFAlta, "La longitud es demasiado larga")
        Else
            ErrorProvider1.SetError(txtNIFAlta, Nothing)
            nif = True
        End If

        'Comprobar que el nombre sea correcto
        If txtNombreAlta.Text.Length = 0 Then
            ErrorProvider1.SetError(txtNombreAlta, "El nombre no puede estar vacio")
        ElseIf txtNombreAlta.Text.Length > 50 Then
            ErrorProvider1.SetError(txtNombreAlta, "La longitud es demasiado larga")
        Else
            ErrorProvider1.SetError(txtNombreAlta, Nothing)
            nombre = True
        End If

        'Comprobar que el apellido sea correcto
        If txtApellidosAlta.Text.Length = 0 Then
            ErrorProvider1.SetError(txtApellidosAlta, "Los apellidos no pueden estar vacios")
        Else
            ErrorProvider1.SetError(txtApellidosAlta, Nothing)
            apellidos = True
        End If

        If nif = True And nombre = True And apellidos = True Then
            _miCampeonato.insertarJugador(txtNIFAlta.Text, txtNombreAlta.Text, _
                                      txtApellidosAlta.Text, fecha, txtCalleAlta.Text, _
                                     direccionNumero, txtPuertaAlta.Text, _
                                    txtLocalidadAlta.Text, txtProvinciaAlta.Text, _
                                   txtCorreoAlta.Text, tieneWhatsapp, _
                                  txtFacebookAlta.Text, txtTwitterAlta.Text)
            Me.Close()
            borrarFormulario()
        End If
    End Sub

    Private Sub borrarFormulario()
        For Each control As Windows.Forms.Control In Me.Controls
            If TypeOf control Is GroupBox Then
                For Each controlText As Windows.Forms.Control In Me.GroupBox1.Controls
                    If TypeOf controlText Is TextBox Then
                        CType(controlText, TextBox).Clear()
                    End If
                Next
                For Each controlText As Windows.Forms.Control In Me.GroupBox2.Controls
                    If TypeOf controlText Is TextBox Then
                        CType(controlText, TextBox).Clear()
                    End If
                Next
                For Each controlText As Windows.Forms.Control In Me.GroupBox3.Controls
                    If TypeOf controlText Is TextBox Then
                        CType(controlText, TextBox).Clear()
                    End If
                Next
            End If
        Next
    End Sub

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub brnCancelar_Click(sender As Object, e As EventArgs) Handles brnCancelar.Click
        Me.Close()
    End Sub
End Class